home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 111 / PC Guia 111.iso / Software / Utils / HJTHotkey 2.7.4 / HJTHotkey.exe / {app} / hjthotkey.ahk < prev    next >
Encoding:
Text File  |  2004-09-22  |  18.5 KB  |  975 lines

  1. ;    Copyright (C) 2004
  2. ;
  3. ;    This program is free software; you can redistribute it and/or modify
  4. ;    it under the terms of the GNU General Public License as published by
  5. ;    the Free Software Foundation; either version 2 of the License, or
  6. ;    (at your option) any later version.
  7. ;
  8. ;    This program is distributed in the hope that it will be useful,
  9. ;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. ;    GNU General Public License for more details.
  12. ;
  13. ;    You should have received a copy of the GNU General Public License
  14. ;    along with this program; if not, write to the Free Software
  15. ;    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  16. ;
  17. ;
  18. ;    contact me by e-mail: JRMC137@AOL.com
  19.  
  20.  
  21. ;----------------------------------------8<--------------------------------------------------------
  22.  
  23. Gui, Add, GroupBox, x17 y11 w270 h150, Search a Website
  24. Gui, Add, GroupBox, x297 y11 w270 h110, Search an offline database
  25. Gui, Add, GroupBox, x297 y131 w270 h80, Other Options
  26.  
  27. Gui, Add, Text, x27 y31 w130 h20, Google
  28. Gui, Add, Edit, x227 y31 w50 h20 vgoogle2, g
  29. Gui, Add, DropDownList, x167 y31 w50 h130 vgoogle1, Ctrl||Alt|Win|MClick|LClick
  30.  
  31. Gui, Add, Text, x27 y61 w130 h20, Sysinfo (BHO)
  32. Gui, Add, Edit, x227 y61 w50 h20 vsysinfob2, b
  33. Gui, Add, DropDownList, x167 y61 w50 h130 vsysinfob1, Ctrl||Alt|Win|MClick|LClick
  34.  
  35. Gui, Add, Text, x27 y91 w130 h20, Sysinfo (Startup)
  36. Gui, Add, Edit, x227 y91 w50 h20 vsysinfos2, s
  37. Gui, Add, DropDownList, x167 y91 w50 h130 vsysinfos1, Ctrl||Alt|Win|MClick|LClick
  38.  
  39. Gui, Add, Text, x27 y121 w100 h30, AnsersThatWork (Processes)
  40. Gui, Add, Edit, x227 y121 w50 h20 vprocess2, a
  41. Gui, Add, DropDownList, x167 y121 w50 h130 vprocess1, Ctrl||Alt|Win|MClick|LClick
  42.  
  43. Gui, Add, Text, x307 y31 w130 h20, BHO Database
  44. Gui, Add, Edit, x507 y31 w50 h20 vbho2, b
  45. Gui, Add, DropDownList, x447 y31 w50 h130 vbho1, Ctrl|Alt||Win|MClick|LClick
  46.  
  47. Gui, Add, Text, x307 y61 w130 h20, Toolbar database
  48. Gui, Add, Edit, x507 y61 w50 h20 vtoolbar2, t
  49. Gui, Add, DropDownList, x447 y61 w50 h130 vtoolbar1, Ctrl|Alt||Win|MClick|LClick
  50.  
  51.  
  52.  
  53. Gui, Add, Text, x307 y91 w130 h20, CWS Database
  54. Gui, Add, Edit, x507 y91 w50 h20 vcws2, c
  55. Gui, Add, DropDownList, x447 y91 w50 h130 vcws1, Ctrl|Alt||Win|MClick|LClick
  56.        
  57.  
  58. Gui, Add, Text, x307 y151 w130 h20, Close IE
  59. Gui, Add, Edit, x507 y151 w50 h20 vie2, z
  60. Gui, Add, DropDownList, x447 y151 w50 h130 vie1, Ctrl|Alt||Win|MClick|LClick    
  61.  
  62. Gui, Add, Text, x307 y181 w130 h20, Run Notepad
  63. Gui, Add, Edit, x507 y181 w50 h20 vnotepad2, n
  64. Gui, Add, DropDownList, x447 y181 w50 h130 vnotepad1, Ctrl||Alt|Win|MClick|LClick
  65.  
  66.  
  67.  
  68. Gui, Add, Button, x27 y181 w70 h30 default gSubmit, Apply
  69. Gui, Add, Button, x117 y181 w70 h30 gCancel, Cancel
  70. Gui, Add, Button, x207 y181 w70 h30 gDefaults, Defaults
  71.  
  72. Gui, Add, Text, x127 y219 w330 h20, Important: Windows 95, 98 and ME do not support Lclick and Mclick.
  73.  
  74. AutoTrim, Off 
  75.  
  76. ifnotexist, hotkeys.ini
  77. fileappend,[Hotkeys]`nGoogle=^g`nSysinfo(bho)=^b`nSysinfo(startup)=^s`nProcesses=!a`nBHO=!b`nToolbar=!t`nCWS=!c`nIEClose=^z`nNotepad=^n`n,hotkeys.ini
  78.  
  79. ifnotexist, keys.ini
  80. fileappend,[key1]`nHotkeys=Ctrl`,Ctrl`,Ctrl`,Alt`,Alt`,Alt`,Alt`,Ctrl`,Ctrl`n`n[key2]`nSecondkeys=g`,b`,s`,a`,b`,t`,c`,z`,n, keys.ini
  81.  
  82.  
  83. gosub, readhotkeys
  84.  
  85. ;-----------------------------------------8<------------------------------------------------------
  86.  
  87. ifnotexist, is.ini
  88. fileappend,[instructions]`nstatus=`n`n[icon]`npath=,is.ini
  89.  
  90. Iniread, FileName, is.ini, icon, path
  91. if filename =
  92. {
  93. goto, start
  94. }
  95. else
  96. {
  97. Menu, tray, Icon, %FileName%
  98.  
  99. if ErrorLevel <> 0
  100.     MsgBox, An error occured whilst opening the icon
  101.  
  102. }
  103.  
  104. start:
  105.  
  106. SetTitleMatchMode, 2
  107.  
  108. #SingleInstance force
  109.  
  110. Menu, tray, NoStandard
  111.  
  112. Menu, tray, add, Instructions
  113.  
  114. Menu, tray, add, Customise Hotkeys ,customisehotkeys
  115.  
  116. Menu, tray, add, Change Icon, changeicon
  117.  
  118. Menu, tray, add, Update all databases, updateall
  119.  
  120. Menu, tray, add
  121.  
  122. Menu, tray, add, Search Toolbar database, entertoolbar
  123.  
  124. Menu, tray, add, Search BHO database, enterbho
  125.  
  126. Menu, tray, add, Search CWS database, enterdomain
  127.  
  128. Menu, tray, add
  129.  
  130. Menu, tray, add, Suspend Hotkeys,suspendscript
  131.  
  132. Menu, tray, add, exit
  133.  
  134. Menu, Mouse, Add, BHO, B
  135. Menu, Mouse, Add, Toolbar, T
  136. Menu, Mouse, Add, Startup, S
  137. Menu, Mouse, Add, CWS, C
  138. Menu, Mouse, Add
  139. Menu, Mouse, Add, Google, G
  140. Menu, Mouse, Add, Processes, P
  141. Menu, Mouse, Add, Sysinfo(bho), SB
  142. Menu, Mouse, Add, Sysinfo(startup), SS
  143. Menu, Mouse, Add, Windows Startup, WS
  144. Menu, Mouse, Add
  145. Menu, Mouse, Add, Close IE, IE
  146. Menu, Mouse, Add, Notepad, N
  147.  
  148.  
  149.  
  150.  
  151. IniRead, status, is.ini, instructions, status
  152.  
  153.  
  154. if status=
  155. {
  156. goto, instructions
  157. }
  158.  
  159. #include Include in HJTHotkey.ahk
  160.  
  161. hotkeys:
  162.  
  163. !m::
  164. send, ^c
  165. Menu, Mouse, Show
  166.  
  167. return
  168.  
  169. ;^g::
  170. Google:
  171.  
  172. clipboard=
  173.  
  174. winactivate
  175.     Send, ^c
  176.  
  177. G:
  178. ClipWait, 3.5
  179. if ErrorLevel <> 0
  180. {
  181.     MsgBox, The attempt to copy text onto the clipboard failed, please try again.
  182. clipboard =
  183.     return
  184.  
  185. }
  186.  
  187.     word = %clipboard%
  188.  
  189. outvar = http://www.google.co.uk/search?q=%word%&ie=UTF-8&oe=UTF-8&hl=en&meta=
  190.  
  191. gosub, runwebsite
  192.  
  193.  
  194. EXIT
  195.  
  196.  
  197.  
  198. ;^b::
  199. Sysinfo(bho):
  200.  
  201. clipboard=
  202. winactivate
  203. Send, ^c
  204.  
  205. SB:
  206. ClipWait, 3.5
  207. if ErrorLevel <> 0
  208. {
  209.     MsgBox, The attempt to copy text onto the clipboard failed, please try again.
  210. clipboard =
  211.     return
  212. }
  213.  
  214. bho = %clipboard%
  215.  
  216. outvar = http://www.sysinfo.org/bholist.php?filter=%bho%&count=&type=
  217.  
  218. gosub, runwebsite
  219.  
  220.  
  221.  
  222.  
  223. EXIT
  224.  
  225.  
  226.  
  227. ;^s::
  228. Sysinfo(startup):
  229.  
  230. clipboard=
  231. winactivate
  232. Send, ^c
  233.  
  234. SS:
  235. ClipWait, 3.5
  236. if ErrorLevel <> 0
  237. {
  238.     MsgBox, The attempt to copy text onto the clipboard failed, please try again.
  239. clipboard =
  240.     return
  241. }
  242.     startup = %clipboard%
  243.  
  244. outvar = http://www.sysinfo.org/startuplist.php?filter=%startup%&count=&type=
  245.  
  246. gosub, runwebsite
  247.  
  248. EXIT
  249.  
  250.  
  251.  
  252. !s::
  253. windowsstartup:
  254.  
  255. clipboard=
  256. winactivate
  257. Send, ^c
  258.  
  259. WS:
  260. ClipWait, 3.5
  261. if ErrorLevel <> 0
  262. {
  263.     MsgBox, The attempt to copy text onto the clipboard failed, please try again.
  264. clipboard =
  265.     return
  266. }
  267.     winstartup = %clipboard%
  268.  
  269. outvar = http://www.google.com/search?sourceid=navclient&ie=UTF-8&oe=UTF-8&q=site`%3Awww.windowsstartup.com+%winstartup%
  270.  
  271. gosub, runwebsite
  272.  
  273. EXIT
  274.  
  275.  
  276.  
  277. ;!a::
  278. processes:
  279.  
  280. clipboard=
  281.  
  282. send,^c
  283.  
  284. P:
  285. ClipWait, 3.5
  286. if ErrorLevel <> 0
  287. {
  288.     MsgBox, The attempt to copy text onto the clipboard failed, please try again.
  289. clipboard =
  290.     return
  291. }
  292. process=%clipboard%
  293.  
  294. StringReplace, process2, process, .exe
  295.  
  296.  
  297.  
  298. outvar = http://search.freefind.com/find.html?oq=%22mstask%22&id=6940792&pageid=r&lang=en&query=%process2%&mode=ALL&search=all
  299.  
  300. gosub, runwebsite
  301.  
  302. EXIT
  303.  
  304.  
  305.  
  306.  
  307.  
  308. ;^n::
  309. Notepad:
  310. N:
  311. run, notepad.exe
  312.  
  313. EXIT
  314.  
  315.  
  316.  
  317.  
  318. ;^z::
  319. IEClose:
  320. IE:
  321. WinClose, ahk_class IEFrame
  322.  
  323. EXIT
  324.  
  325.  
  326. ^!z::
  327.  
  328. ifwinexist, ahk_class IEFrame
  329. {
  330.  
  331. loop
  332. {
  333. winclose, ahk_class IEFrame
  334.  
  335. IfWinNotExist, ahk_class IEFrame
  336. {
  337. EXIT
  338. }
  339. }
  340. }
  341. EXIT
  342.  
  343.  
  344. instructions:
  345.  
  346. MsgBox, ,Instructions, Instructions-`n`nSearch a Website-`n`nCtrl + g will search for the selected item at Google (search engine) `nCtrl + b will searched for the item in sysinfo.org's  BHO (Browser Helper Object) database `nCtrl + s will search for the start up item in sysinfo.org's startup list `nAlt + a will search for a process at answersthatwork.com `n`nSearch a Database-`n`nAlt + b  will searched for the item in an offline  BHO (Browser Helper Object) database `nAlt + t  will searched for the item in an offline  Toolbar database`nCtrl + d will search for the item in an offline Startup database`nAlt + c   will searched for the item in an offline CWS (Cool Web Search) database`n`nTo Search for a CWS website`, select (highlight) the domain from http:// to .com etc`n`nOther options-`n`nCtrl + z will close the current "Active" Internet Explorer widow `nCtrl + Alt + z  will close all Internet Explorer windows `nCtrl + n will run notepad `nCtrl + F12 will update all of the databases from allsecpros.com `nCtrl + Alt + s will suspend all Hotkeys (so they have no effect when pressed)`nAlt + m will display a menu by the mouse with most of the above options.`n`nAll Databases are updated often so using the update feature often is recomended.
  347.  
  348. Msgbox,I would like to thank computercops.biz for giving be permission to have HJTHotkey download their BHO and Toolbar Databases, allsecpros.com for giving be permission to have HJTHotkey download their CWS Database, net-integration.net (AT Rashad) for providing me with a forum, majorgeeks.com for providing multiple mirror downloads for HJTHotkey, www.autohotkey.com for providing a great program which I used to write HJTHotkey as well as all those who compiled the databases including Paul Colins, TonyKlein and Merlijn.`n`n`n`nCopyright (C) 2004`n`nThis program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the   GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA`nn You can contact me by e-mail at JRMC137@AOL.com
  349.  
  350. dsa=1; don't show again
  351.  
  352. IniWrite, %dsa%, is.ini, instructions, status
  353.  
  354. return
  355.  
  356. EXIT
  357.  
  358.  
  359.  
  360. changeicon:
  361.  
  362. FileSelectFile, FileName, 1, %A_WorkingDir%, Select an icon to be used, *.ico; *.exe
  363.  
  364. if ErrorLevel <> 0
  365.     MsgBox, An error occured whilst opening the icon or an icon wasn't selected.
  366.  
  367. Menu, tray, Icon, %FileName%
  368.  
  369. IniWrite, %FileName%, is.ini, icon, path
  370.  
  371. EXIT
  372.  
  373.  
  374.  
  375. exit:
  376.  
  377. ExitApp
  378.  
  379. suspendscript:
  380.  
  381. ^!s::
  382.  
  383. Suspend
  384. Menu, tray, ToggleCheck, Suspend Hotkeys
  385.  
  386. EXIT
  387.  
  388. ^!#+q::
  389.  
  390. enterdomain:
  391.  
  392.  
  393. IfNotExist, cws_domains.txt
  394. {
  395.     gosub, updateall
  396. }
  397.  
  398. InputBox, domain, Enter Domain, Please enter the suspected domain:
  399.  
  400. if domain=
  401. {
  402. EXIT
  403. }
  404. else
  405. {
  406. gosub, find
  407. }
  408.  
  409. ;!c::
  410. CWS:
  411.  
  412.  
  413. IfNotExist, cws_domains.txt
  414. {
  415.     gosub, updateall
  416. }
  417.  
  418. clipboard =
  419. winactivate
  420. Send, ^c
  421.  
  422. C:
  423. ClipWait, 3.5
  424. if ErrorLevel <> 0
  425. {
  426.     MsgBox, The attempt to copy text onto the clipboard failed.
  427.     return
  428. }
  429.  
  430. domain=%clipboard%
  431.  
  432. StringReplace, domain, domain, http://
  433. StringReplace, domain, domain, /
  434.  
  435.  
  436.  
  437. find:
  438.  
  439. IfNotExist, cws_domains.txt
  440. {
  441.     gosub, updateall
  442. }
  443.  
  444. if A_OSVersion >= WIN_2000
  445. {
  446. TrayTip, ,Searching......., 20, 16
  447. }
  448. if A_OSVersion <= WIN_ME
  449. {
  450. SplashTextOn , 500, 30, Searching, Searching CWS database`, please wait.
  451. WinMove, Searching, Searching CWS database`, please wait., 0, 0
  452. }
  453.  
  454. i=0
  455.  
  456. Loop, read, cws_domains.txt
  457. {
  458.  
  459. IfInString, A_LoopReadLine, %domain%
  460. {
  461.  
  462. i++
  463. search%i%=%A_LoopReadLine%
  464. }
  465.  
  466.  
  467. }
  468.  
  469. if search1 !=
  470. {
  471. Msgbox,1,CWS Search,1)  %search1%`n2)  %search2%`n3)  %search3%`n4)  %search4%`n5)  %search5%`n6)  %search6%`n7)  %search7%`n8)  %search8%`n9)  %search9%`n10)  %search10%`n  `n`n The above Domain(s) were found in the CWS Database.
  472. }
  473.  
  474. if search11 !=
  475. {
  476. Msgbox,1,CWS Search,11)  %search11%`n12)  %search12%`n13)  %search13%`n14)  %search14%`n15)  %search15%`n16)  %search16%`n17)  %search17%`n18)  %search18%`n19)  %search19%`n20)  %search20%`n  `n`n The above Domain(s) were also found in the CWS Database.
  477. }
  478.  
  479.  
  480. i=0
  481.  
  482. loop, 20
  483. {
  484. i++
  485. search%i%=
  486. }
  487.  
  488. ifmsgbox cancel
  489. {
  490. gosub, splashcws
  491. EXIT
  492. }
  493.  
  494. splashcws:
  495.  
  496. SplashTextOff
  497. SetTimer, RemoveTrayTip, Off
  498.  
  499. if A_OSVersion >= WIN_2000
  500. {
  501. TrayTip, ,Search Finished, 20, 16
  502.  
  503. SetTimer, RemoveTrayTip, 1000
  504. }
  505. else
  506. {
  507.  
  508. SplashTextOn , 500, 30, End of database, The end of the database of CWS Trojans has been reached.
  509. WinMove, End of database, The end of the database of CWS Trojans has been reached., 0, 0
  510. sleep, 2000
  511.  
  512. SplashTextOff
  513. }
  514. return
  515.  
  516.  
  517. EXIT
  518.  
  519.  
  520. ^!#+o::
  521.  
  522. enterbho:
  523.  
  524.  
  525. IfNotExist, bholist.txt
  526. {
  527.     gosub, updateall
  528. }
  529.  
  530. InputBox, bho, Enter BHO, Please enter the suspected Browser Helper Object (BHO) or it`'s CLSID:
  531.  
  532. if bho=
  533. {
  534. EXIT
  535. }
  536. else
  537. {
  538. gosub, findbho
  539. }
  540.  
  541. ;!b::
  542. BHO:
  543.  
  544. IfNotExist, bholist.txt
  545. {
  546.     gosub, updateall
  547. }
  548.  
  549. clipboard =
  550. winactivate
  551. Send, ^c
  552.  
  553. B:
  554. ClipWait, 3.5
  555. if ErrorLevel <> 0
  556. {
  557.     MsgBox, The attempt to copy text onto the clipboard failed.
  558.     return
  559. }
  560.  
  561. bho=%clipboard%
  562.  
  563. IfInString, bho, {
  564. StringReplace, bho, bho, {,,All
  565.  
  566. IfInString, bho, }
  567. StringReplace, bho, bho, },,All
  568.  
  569.  
  570. findbho:
  571.  
  572. IfNotExist, bholist.txt
  573. {
  574.     gosub, updateall
  575. }
  576.  
  577. if A_OSVersion >= WIN_2000
  578. {
  579. TrayTip, ,Searching......., 20, 16
  580. }
  581. if A_OSVersion <= WIN_ME
  582. {
  583.  
  584. SplashTextOn , 500, 30, Searching, Searching BHO database`, please wait.
  585. WinMove, Searching, Searching BHO database`, please wait., 0, 0
  586. }
  587.  
  588. Loop, read, bholist.txt
  589. {
  590.  
  591. IfInString, A_LoopReadLine, %bho%
  592. {
  593. SetTimer, ChangeButtonNames, 50
  594. Msgbox,3,BHO Search,%A_LoopReadLine% `n`nwas found in the BHO database `n`n Key:`n`nX for certified spyware/foistware, or other malware, `nL for legitimate items, `nO for open to debate `n? for BHOs of unknown status
  595.  
  596.  
  597. IfMsgBox, Yes
  598. {
  599. continue
  600. }
  601.  
  602. IfMsgBox, No
  603. {
  604.  
  605. IfInString, A_LoopReadLine, http
  606. {
  607. invar=%A_LoopReadLine%
  608.  
  609. StringGetPos, pos, invar, http, L
  610.  
  611. StringTrimLeft, outvar, invar, %pos%
  612.  
  613. gosub, runwebsite
  614.  
  615. gosub, splashbho
  616.  
  617. continue
  618. }
  619. else
  620. {
  621. msgbox, No URL found
  622. continue
  623. }
  624.  
  625. }
  626. ifmsgbox cancel
  627. {
  628. SetTimer, RemoveTrayTip, Off
  629. SplashTextOff
  630.  
  631. gosub, splashbho
  632.  
  633. EXIT
  634. }
  635.  
  636. ChangeButtonNames:
  637. IfWinNotExist, BHO Search, , return
  638. SetTimer, ChangeButtonNames, off
  639. winwait, BHO Search,,2
  640. WinActivate
  641. ControlSetText, &Yes, &OK
  642. ControlSetText, &No, &Visit URL
  643.  
  644. return
  645.  
  646. }
  647.  
  648. }
  649.  
  650. splashbho:
  651.  
  652. SplashTextOff
  653.  
  654. SetTimer, RemoveTrayTip, Off
  655.  
  656. if A_OSVersion >= WIN_2000
  657. {
  658. TrayTip, ,Search Finished, 20, 16
  659.  
  660. SetTimer, RemoveTrayTip, 1000
  661. }
  662. if A_OSVersion <= WIN_ME
  663. {
  664.  
  665. SplashTextOn , 500, 30, End of database, The end of the database of BHO`'s has been reached.
  666. WinMove, End of database, The end of the database of BHO`'s has been reached., 0, 0
  667. sleep, 2000
  668. SplashTextOff
  669. }
  670. return
  671.  
  672. EXIT
  673.  
  674.  
  675.  
  676. ^!#+t::
  677.  
  678. entertoolbar:
  679.  
  680.  
  681. IfNotExist, toolbarlist.txt
  682. {
  683.     gosub, updateall
  684. }
  685.  
  686. InputBox, toolbar, Enter Toolbar, Please enter the suspected Toolbar or it`'s CLSID:
  687.  
  688. if toolbar=
  689. {
  690. EXIT
  691. }
  692. else
  693. {
  694. gosub, findtoolbar
  695. }
  696.  
  697. ;!t::
  698. Toolbar:
  699.  
  700. IfNotExist, toolbarlist.txt
  701. {
  702.     gosub, updateall
  703. }
  704.  
  705. clipboard =
  706. winactivate
  707. Send, ^c
  708.  
  709. T:
  710. ClipWait, 3.5
  711. if ErrorLevel <> 0
  712. {
  713.     MsgBox, The attempt to copy text onto the clipboard failed.
  714.     return
  715. }
  716.  
  717. toolbar=%clipboard%
  718.  
  719. IfInString, toolbar, {
  720. StringReplace, toolbar, toolbar, {,,All
  721.  
  722. IfInString, toolbar, }
  723. StringReplace, toolbar, toolbar, },,All
  724.  
  725.  
  726. findtoolbar:
  727.  
  728.  
  729. IfNotExist, toolbarlist.txt
  730. {
  731.     gosub, updateall
  732. }
  733.  
  734. if A_OSVersion >= WIN_2000
  735. {
  736. TrayTip, ,Searching......., 20, 16
  737. }
  738. if A_OSVersion <= WIN_ME
  739. {
  740. SplashTextOn , 500, 30, Searching, Searching Toolbar database`, please wait.
  741. WinMove, Searching, Searching Toolbar database`, please wait., 0, 0
  742. }
  743.  
  744. Loop, read, toolbarlist.txt
  745. {
  746.  
  747. IfInString, A_LoopReadLine, %toolbar%
  748. {
  749. SetTimer, ChangeButtonNames2, 50
  750. Msgbox,3,Toolbar Search,%A_LoopReadLine% `n`nwas found in the Toolbar database `n`n Key:`n`nX for certified spyware/foistware, or other malware, `nL for legitimate items, `nO for open to debate `n? for Toolbars of unknown status
  751.  
  752.  
  753. IfMsgBox, Yes
  754. {
  755. continue
  756. }
  757.  
  758. IfMsgBox, No
  759. {
  760.  
  761. IfInString, A_LoopReadLine, http
  762. {
  763. invar=%A_LoopReadLine%
  764.  
  765. StringGetPos, pos, invar, http, L
  766.  
  767. StringTrimLeft, outvar, invar, %pos%
  768.  
  769. gosub, runwebsite
  770.  
  771. continue
  772.  
  773.  
  774. }
  775. else
  776. {
  777. msgbox, No URL found
  778. continue
  779. }
  780. }
  781. ifmsgbox cancel
  782. {
  783. gosub, splashtoolbar
  784.  
  785. EXIT
  786. }
  787.  
  788. ChangeButtonNames2:
  789. IfWinNotExist, Toolbar Search, , return
  790. SetTimer, ChangeButtonNames, off
  791. WinActivate
  792. ControlSetText, &Yes, &OK
  793. ControlSetText, &No, &Visit URL
  794.  
  795. return
  796.  
  797. }
  798.  
  799. }
  800.  
  801. splashtoolbar:
  802.  
  803. SplashTextOff
  804.  
  805. SetTimer, RemoveTrayTip, Off
  806.  
  807. if A_OSVersion >= WIN_2000
  808. {
  809. TrayTip, ,Search Finished, 20, 16
  810.  
  811. SetTimer, RemoveTrayTip, 1000
  812. }
  813. if A_OSVersion <= WIN_ME
  814. {
  815.  
  816. SplashTextOn , 500, 30, End of database, The end of the database of Toolbars has been reached.
  817. WinMove, End of database, The end of the database of Toolbars has been reached., 0, 0
  818. sleep, 2000
  819. SplashTextOff
  820. }
  821.  
  822.  
  823. return
  824.  
  825. EXIT
  826.  
  827.  
  828.  
  829.  
  830. ^F12::
  831.  
  832. updateall:
  833.  
  834. filedelete, bholist.txt
  835. filedelete, cws_domains.txt
  836. filedelete, toolbarlist.txt
  837. filedelete, Startup4.txt
  838.  
  839.  
  840. MsgBox, 1, , Click OK to update the CWS databases from allsecpros.com and the BHO and Toolbar databases from computercomps.biz .  `n`nContinue?
  841.  
  842. ifmsgbox, Cancel
  843. {
  844. EXIT
  845. }
  846.  
  847. if A_OSVersion >= WIN_2000
  848. {
  849. TrayTip, ,Downloading........, 20, 16
  850.  
  851. }
  852. if A_OSVersion <= WIN_ME
  853. {
  854.  
  855. splashtitle=Downloading Updates
  856. splashtext=Please wait while the databases are being updated
  857.  
  858. SplashTextOn , 500, 30, %splashtitle%, %splashtext%
  859. WinMove, %splashtitle%, %splashtext%, 0, 0
  860.  
  861. }
  862.  
  863. ifmsgbox, OK
  864. {
  865.  
  866. URLDownloadToFile, http://computercops.biz/clsid.php?type=5, bholist.txt
  867.  
  868. if ErrorLevel <> 0
  869. {
  870. MsgBox, An error occured whilst updating the BHO database.
  871. }
  872.  
  873. URLDownloadToFile, http://allsecpros.com/cws_domains.txt, cws_domains.txt
  874. if ErrorLevel <> 0
  875. {
  876.  
  877. MsgBox, An error occured whilst updating the CWS database.
  878. }
  879.  
  880. URLDownloadToFile, http://computercops.biz/clsid.php?type=10, toolbarlist.txt
  881.  
  882. if ErrorLevel <> 0
  883. {
  884. MsgBox, An error occured whilst updating the toolbar database.
  885. }
  886.  
  887.  
  888. }
  889.  
  890. gosub, updatestartupoffline
  891.  
  892. SetTimer, RemoveTrayTip, OFF
  893.  
  894. if A_OSVersion >= WIN_2000
  895. {
  896. TrayTip, ,Update Complete, 20, 16
  897.  
  898. SetTimer, RemoveTrayTip, 1000
  899. }
  900. if A_OSVersion <= WIN_ME
  901. {
  902. sleep, 1000
  903. SplashTextOff
  904.  
  905. splashtitle=Update Finished
  906. splashtext=Your CWS, BHO and Toolbar databases are now up to date
  907.  
  908. SplashTextOn , 500, 30, %splashtitle%, %splashtext%
  909. WinMove, %splashtitle%, %splashtext%, 0, 0
  910. sleep, 2000
  911. SplashTextOff
  912. }
  913.  
  914.  
  915. return
  916.  
  917.  
  918. EXIT
  919.  
  920.  
  921.  
  922.  
  923.  
  924. runwebsite:
  925.  
  926. IfWinExist, ahk_class IEFrame
  927. {
  928.   Run, iexplore.exe "%outvar%"
  929.  
  930. gosub, splashoff
  931.  
  932.   EXIT
  933. }
  934. else
  935. {
  936. Run,%outvar%
  937. return
  938. }
  939.  
  940. splashoff:
  941.  
  942. SplashTextOff
  943.  
  944. SetTimer, RemoveTrayTip, Off
  945.  
  946. EXIT
  947.  
  948. if A_OSVersion >= WIN_2000
  949. {
  950. TrayTip, ,Search Finished, 20, 16
  951.  
  952. SetTimer, RemoveTrayTip, 1000
  953. }
  954. if A_OSVersion <= WIN_ME
  955. {
  956.  
  957. SplashTextOn , 500, 30, End of database, The end of the database has been reached.
  958. WinMove, End of database, The end of the database of Toolbars has been reached., 0, 0
  959. sleep, 2000
  960. SplashTextOff
  961. }
  962.  
  963. return
  964.  
  965. EXIT
  966.  
  967.  
  968. RemoveTrayTip:
  969. SetTimer, RemoveTrayTip, Off
  970. TrayTip
  971. return
  972.  
  973. EXIT
  974.  
  975. #include startup.ahk